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1-001 : 66-SEP-1984 91588500 YOASRTL ere CJPAS Het MAR; 1 . (1) 
-TITLE PASSCARD2 - Return cardinality of s 
- IDENT /1=001/ 3; File: PASCARD2. MAR Edit: SBL1001 


MmARABARBARARALALSLASAAASLAAAAAAAAASASLASEARSSASE RASA SESE REESE RRR R ESSE ESE R REE E SS 


COPYSTGHT (c).1978, 1980, 1982, 1984 BY 
DIG EQUIPMENT. CORPORATION, MAYNARD, MASSACHUSETTS. 


THIS Su! TWAR is eater wet A LICENSE AND MAY BE USED AND ag A 
ONLY IN ACE NCE WITH THE TERMS OF SUCH bic ee AND WITH THE 
CLUSION © ABOVE gilt od NOTICE. THIS SOFTWARE OR ANY OTHER 
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* 
* 
* 
* 
* 
IN © 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
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* 
THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
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® 
* 
* 
® 
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++ 
; FACILITY: Pascal Language Support 


; ABSTRACT: 


This module contains PAS$CARD2, which implements the Pascal 
CARD function. 


} ENVIRONMENT: User mode, AST Reentrant 
AUTHOR: Steven B. Lionel, CREATION DATE: 6-July-1981 
; MODIFIED BY: 
; 1-001 = Original. SBL 6-July-1981 
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PASSCARD2 - Return cardinality of set 16-SEP-1984 01:22:06 VAX/VMS M v04-0 Pp PA’ 
1-001 DECLARATIONS . rae 7 orig 04 PASRTL. CRETPASCARDS MAR: 1 — 3) 1=( 
900 ‘ : .SBTTL DECLARATIONS : 
308 48 ; LIBRARY MACRO CALLS: ; 
000 50 ; NONE : 
000 51; 3 
4 26 : EXTERNAL DECLARATIONS: : 
4 2¢ ‘ -DSABL GBL : Force all external symbols to be declared : 
0000 56 ; NONE 
ti ef : ; 
000 8 : MACROS: 3 
0000 59; : 
0000 60 ; NONE 3 
0000 61 : 3 
0000 6¢ ; EQUATED SYMBOLS: : 
0000 63 ; ; 
0000 64 ; NONE 3 
0000 65 ; 3 
9000 66 ; PSECT DECLARATIONS: : 
00000000 68° -PSECT _PASS$CODE PIC, USR, CON, REL, LCL. SHR, - | : 
0000 69 EXE, RD, NOWRT, LONG | : 
0000 70 ; ; 
0000 71 ; OWN STORAGE: : 
0000 72; 8 
0000 73 3 
0000 74 3+ 
0000 75 ; NBITS_TABLE is a 256-element table which, when indexed by a byte value, 
0000 76 ; gives the number of ‘l"’ bits in that byte value. 
0000 {i 3° 
0000 78 
0000 79 NBITS_TABLE: 
03 02 02 01 03 02 O2 01 Oe ot 4h 68 4 80 OTTER. OU Bcd aled clade letedsdetctca ee i TS 
04 03 03 02 04 03 03 02 Bs ¢ be bt Bote 81 UTE «= Bb Bebe Se Sebcd ce 3cde4e5-44.5 § 16°51 | 
04 03 03 02 04 03 03 02 Bs oe B 4 Base 82 BYTE = 1,2,2,3.26363 0402030304050 424.5 3 32-47 | 
05 04 04 03 05 04 04 03 be b3 b3 b 0080 83 BYTE §=2,,3,3.4.3,4.4,5,32414.5.4,5,5,6 3 48-63 | 
04 03 03 02 04 03 03 02 Bs og 4 Ree 84 BYTE = 1, 2,2,3.2.34304 0203030405 0424,5 5 64-79 
05 04 04 03 05 04 04 03 be bg bg 03 0056 85 BYTE = 22,3354 53.44 146543 04 4 54556 3 80-95 
05 04 04 03 05 04 04 03 Be b3 b3 $i Boer 86 BYTE = 2,,3.,3..4,3..4.4.5535404,524,5,5,6 5 96-111 
06 05 05 04 06 05 05 04 bs ee +4 B3 Ba oe 87 -BYTE 3,4,4,5,4,5,5,6,.4.,5,5,6,5,6,6.7 3 112-127 
04 03 03 02 04 03 03 02 be b¢ 6 4 Baer 88 BYTE = 1, 2,2,3.2.3.354 02030304535 04.4.5 § 128-143 
05 04 04 03 05 04 04 03 be 03 03 be ORE 89 BYTE «2,334.34 141503 044 5455 § 144-159 
05 04 04 03 05 04 04 03 6 bs 03 8 GOD 90 BYTE = 2,334 135044 5 5 0 4 55445456 = 160-175 
06 05 05 04 06 05 05 04 68 04 04 03 itd 91 BYTE 3.4.4,5,4,5,5,6.4,5.5,6.5.6,.6.7 3 176-191 
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at DECLARATIONS . aati aet tf 01:98:08 PASRTL. SRCJPASCARD MAR; 1 — Q) | 
07 06 06 05 BC 
05 04 04 03 05 04 04 03 Be 8 Be $2 92 BYTE 2,3,3,4,3,4,4,5,3,4,4,5,4,5,5,6 ; 192-207 | 
06 05 05 04 06 05 05 04 $ Og 2 p op0 93 -BYTE 3,4,4,5,4,5,5,6,4,5,5,6,5,6,6,7 ; 208-223 
06 05 05 04 06 05 0S 04 ; 4 2 8 oe 94 BYTE 3,4,4,5,4,5,5,6,4.5,5,6,5,6,6,7 3 224-239 
07 06 06 05 07 06 06 05 06 88 05 04 Bare 95 -BYTE 4,5,5,6,5,6,6,7,5,6,6,7,6,7,7,8 ; 240-255 
08 07 07 06 OOFC 
0100 
0100 


vl 
aa 
“wD 
Po 
oc 
>c 
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os 
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19 190 os ~SBTTL PASSCARD2 = Return cardinality of set ; 

\% 194 ; FUNCTIONAL DESCRIPTION: : 

100 108 ; PASSCARD2 returns as its function value the cardinality of : 

0100 104 ; its argument, a Pascal set. Cardinality of a set is the ‘ 

8198 192 3 number of ‘1 bits currently on in the set value. ; 

0100 107 ; CALLING ScQUENCE: ; 

0100 108; 3 

8190 19 : card.wl.v = PASSCARD2 (set_size.rl.v, set.rbu.ra) : 

8190 13 ; FORMAL PARAMETERS: : 
00000004 0100 118 set_size = 4 ; The size of the set in bytes. It is : 
0100 114 ; assumed that all sets are stored as an : 

0100 115 ; integral number of bytes, with unused bits , 

0100 116 3; stored as zero. : 

00000008 0100 117 set = 8 ; The address of the set. : 
0100 118 3 

0100 119; 3 

0100 120 ; IMPLICIT INPUTS: : 

0100 121; : 

0100 1¢¢ : NONE : 

0100 123; 3 

0100 124 ; IMPLICIT OUTPUTS: : 

0100 125 ; 3 

0100 126 ; NONE : 

0100 127 ; : 

0100 128 ; ROUTINE VALUE: : 

0100 \¢3 ; 3 

0100 130 ; The number of ‘1"' bits in the set. : 

0100 131; : 

0100 132 ; SIDE EFFECTS: : 

0100 133; P : Pee : 

0100 134; SS$_INTOVF, inveger overflow, if the number of ‘l'’ bits is greater than : 

0100 135; greater than 2**31-1 3 

0100 136; : 

0100 137 ;-- 3 

0100 138 ; 

400C B19 123 -ENTRY PASSCARD2, “M<R2,R3,1V> ; Entry point : 
50 04 Q102 141 CLRL RO : Set initial cardinality value 3 
8 AC DO 0104 146 MOVL set(AP), R1 ; Get address of set : 
4 AC 00 0108 14 MOVL set_size(AP), R2 ; Get set length F 
OF 13 Bie 128 BEQL 90$ : If zero length, return value of zero : 
81 9A Q10E 146 10S: MOVZBL (R1)+, R3 ; Get next byte of set ; 
43 9A QO111 147 MOVZBL NBITS_TABLECR3], R3 ; Get number of ‘'l"’ bits in set byte : 
535 CO 0117 148 ADDL R3, RO ; Add to cumulative total 3 
O11A 149 ; Integer overflow possible. : 

S2 68S ae 139 SOBGTR R2, 10% ; Loop until all bytes examined : 
04 0Q11D 136 90$: RET ; Return to caller with cardinality 3 
Q11E§='15 ; value in RO 3 

O11E § = ©154 3 

O11E 155 ~ END : End of module PASSCARD2 3 
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S$ = 
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PSECT name Allocation PSECT No. Attribuves 
. O86 00000000 0.) 00 ¢ OO.) NOPIC  USR 
PASSCODE OOOOO11E ¢ 286.) O1¢ 1.) PIC USR 
poe nw ten enw ee oe mew oe moe ass} 
; Performance indicators ! 
Phase Page faults CPU Time Elapsed Time 
Initialization 28 00:00:00.09 00:00:00.61 
Command processing 71 00:00:00.66 OO + 0085 +28 
Pass 64 00:00:00.61 00:00:02.3 
Symbol table sort 0 00:00:00.01 00:00:00.01 
Pass 2 45 00:00:00.36 00:00:01.45 
Symbol table output 1 00:00:00.01 00:00:00.01 
Psect synopsis output 3 00:00:00.02 00:00:00.04 
Cross-reference output 0 00:00:00.00 00:00:00.00 
Assembler run totals 215 00:00:01.78 00:00:07.40 
The working set Limit was 750 pages. 


3067 bytes (6 pages) of virtua 
There were 10 pages of symbol table space allocated to hold 
155 source Lines were read in Pass 1, producin object records in Pass 
0 pages of virtual memory were used to define 0 macros. 


' Macro Library statistics ! 
pw e ee wee worm emer wee emer enone + 


Macros defined 


~$255$DUA28: CSYSLIBISTARLET.MLB;2 0 
0 GETS were required to define 0 macros. 


Macro Library name 


There were no errors, warnings or information messages. 


CON 
CON 


memory were used to buffer the intermediate code. 
4 non-local and 2 local symbols. 


‘EREEIOE f 


ABS 
REL 


1 
1 


$688 


LCL NOSHR NO 
LCL SHR 
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EXE NORD NOWRT NOVEC BYTE 


EXE 


RD NOWRT NOVEC LONG 


MACRO/ENABLE=SUPPRESSION/D1 SABLE=(GLOBAL , TRACEBACK) /LIS=L1S$:PASCARD2/0BJ=0BJ$:PASCARD2 MSRC$:PASCARD2/UPDATE=(ENHS$:PASCARD2) 
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